Developer CD Series 1990: Night of the Living Disc

home *** CD-ROM | disk | FTP | other *** search

/ Developer CD Series 1990: Night of the Living Disc / Night of the Living Disc.2mg / Dev.CD.5 / Apple.Software / Licensable.Code / PRINT.DRIVER / IMAGE.DBLHI < prev next >

Wrap

Text File | 1985-02-15 | 15.5 KB | 612 lines | [04] ASCII Text (0x2000)

*-------------------------------- * * * SCRIBIT PRODUCES A HARDCOPY * IMAGE OF THE APPLE II HIRES * SCREEN ON APPLE'S SCRIBE * PRINTER. * * PRINTER CARD CAN BE A SUPER SERIAL CARD, * OR THE SERIAL PORT OF * THE APPLE ///. * * POKE ZERO-PAGE BYTE 06 WITH SLOT * NUMBER. SLOT IS ADJUSTED TO 1 * IF BYTE 6 = 0, 7 IF >7. * * SET ZERO-PAGE BYTE 07 TO ONE OF * THE FOLLOWING VALUES BEFORE EACH * SCREENDUMP UTILITY CALL: * 0 - SINGLE-SIZE, WHITE-ON-BLACK * 1 - BLACK-ON-WHITE * 2 - DOUBLE-SIZE, WHITE-ON-BLACK * 3 - BLACK-ON-WHITE * * BIT 0 - WHITE-ON-BLACK/BLACK-ON-WHITE * BIT 1 - SINGLE/DOUBLE-SIZED PICTURE * * APG, APPLE COMPUTER - JUNE 1984 * - R. HOIBERG & M. HELLER * * *-------------------------------- * * * ZERO-PAGE DATA - SLOT EQU 06 ;PARALLEL CARD SLOT XFRFLGS EQU 07 ;B7..B5:=B2..B0 OF PARAMETER'S LOW BYTE GCHAR EQU 06 ;APPLE DMP GRAPHICS CHAR (1X8 CELL) BITMASK EQU 08 ;MASKS OFF ALL BUT DESIGNATED BIT IN GR BYTE TEMP EQU 09 ;USED FOR 2XSIZE FF, HBASE CALCS CSWL EQU $36 WARMSTART EQU $3D0 VDOSIO EQU $BE34 DOSIO EQU $03EA SBYTCNTR EQU $1B ; COUNTS VERTICAL BYTES ON SCREEN PRINTED ; RANGES 1-3. PBYTCNTR EQU $1C ; COUNTS VERTICAL BYTES SENT TO PRINTER FLAG EQU $1D ; FLAG IS SET (NON-ZERO) WHENEVER THE LINE ; THAT WE'RE PRINTING DOES NOT BEGIN AT THE ; START OF A VERTICAL SCREEN BYTE CTR1 EQU $1E ; THIS IS A LOOP COUNTER, USED WHEN WE NEED ; TO SEND THE SAME 3-BYTE COLUMN SEVERAL TIMES LSTSBCTR EQU $CE ; STORES THE VALUE OF SBYTCNTR AT THE END OF ; EVERY PRINTER LINE, SO WE HAVE IT LATER LASTEMP EQU $CF ; STORES THE VALUE OF TEMP AT THE END OF EVERY ; PRINTER LINE, SO WE HAVE IT LATER HBASE EQU $19 ; 2-BYTES ($19,$1A) HOLD LOW AND HI BYTES OF ; HI-RES ROW BASE ADDRESS GBYT EQU $EA ; BASE ADDRESS FOR STORING A COLUMN (3 BYTES) ; SO THAT THEY MAY BE RESENT TO ENLARGE IMAGE ; BYTES STORED IN GBYT+1, +2, AND +3. LASTBASE EQU $EE ; STORES THE HI-RES BASE ADDRESS AT THE END ; OF EACH PRINTER LINE SO WE CAN CALCULATE ; FROM IT LATER CNTR EQU $F9 ; LOOP COUNTER FOR THE SENDING OF REPEAT ; COLUMNS TO THE PRINTER (COUNTS BYTES AS ; RETREIVED FROM PAGE 0 - GBYT - AND SENT) PPSTAT EQU $C084 ;ADDR OF PARALLEL PRINTER STATUS BYTE PPDATA EQU $C080 ;ADDR OF PARALLEL PRINTER DATA BYTE OUTL EQU $FA OUTH EQU $FB OFFSET EQU $FC FINISHED EQU $FF SIGBYTES EQU $FE *AND $FF COMBYTE EQU $E74C BYTE EQU $E74F STORE80Y EQU $C001 PAGE2N EQU $C054 PAGE2Y EQU $C055 PG2STAT EQU $C01C HIRESN EQU $C056 HIRESY EQU $C057 SSCDATA EQU $C088 SSCSTAT EQU $C089 SW1 EQU $C081 SSCCOMM EQU $C08A SSCCONT EQU $C08B VIDOFF EQU $CFFF ; 80-COL CARD VECTOR OUTPRT EQU $FE95 SETVID EQU $FE93 APP3ID EQU $FA68 COUT EQU $FDED SIGBYTE EQU $C00B ; SIGBYTE2 EQU $C00C ; HIRES EQUATES - HNDXMAX EQU $A7 ;$27 BYTES PER HIRES ROW CLMBYTES EQU $01 ; NUMBER OF BYTES FOR A SCRIBE COLUMN, ; 3 BYTES MAKE ONE 24-DOT COLUMN. ; ; DMP CONTROL CHARACTERS - NUL EQU $00 ;1ST XMIT CHAR IN CASE PTR POWERED ON LF EQU $0A ;LINEFEED CR EQU $0D ;CARRAIGE RETURN ESC EQU $1B ;ASCII 'ESCAPE' CHAR ASCII0 EQU $30 ASCII1 EQU $31 ASCII2 EQU $32 ASCII3 EQU $33 ASCII4 EQU $34 ASCII5 EQU $35 ASCII6 EQU $36 ASCII7 EQU $37 ASCII8 EQU $38 ASCIIA EQU $41 ;ESC A FOR 1/6" LF ASCIIC EQU $43 ;ESC C nnnn FOR nnnn HIRES COLUMNS ASCIID EQU $44 ;ESC D N1 N0 TO OPEN DIP SWITCH ASCIIF EQU $46 ASCIIG EQU $47 ;ESC G N3 N2 N1 N0 FOR BIT IMAGE GRAPHICS ASCIIj EQU $6A ;ESC j FOR 144x144 RESOLUTION ASCIIn EQU $6E ASCIIT EQU $54 ;ESC T N1 N0 FOR N/144" LF ASCIIU EQU $55 ASCIIZ EQU $5A ;ESC Z N1 N0 TO CLOSE DIP SWITCH * ORG $1B00 * JMP GrafBas ;APPLESOFT BASIC ENTRY POINT JMP GrafML ;MACHINE LANGUAGE ENTRY POINT ;Y REGISTER CONTAINS SLOT NUMBER ;X REGISTER CONTAINS PRINT OPTION HINDEX DS 1 ; THIS COUNTS THE HI-RES VERTICAL BLOCKS ; AS THEY ARE PRINTED (A VERTICAL BLOCK IS ; 7 DOTS WIDE (1 BYTE) BY 24 DOTS TALL) HINDEXL DS 1 HINDEXR DS 1 PRFLG DS 1 BINL DS 1 BINH DS 1 MYBUF DS 4 TBLINDEX DS 1 ; A POINTER TO THE ADDRESS IN THE TABLE WHICH ; CONTAINS THE BASE ADRESS OF THE HORIZONTAL ; BLOCK BEING PRINTED (HORZ. BLOCK IS 280 DOTS ; WIDE BY 8 DOTS TALL - BASE ADDRESS IS ; ADDRESS OF UPPER-LEFTMOST DOT). * GrafML EQU * LDA #0 STA VIDOFF ; RELEASE 80-COL CARD USE OF C800-CA00 STA STORE80Y ; ENABLE AUXILIARY MEMORY STA HIRESY ; ENABLE HIRES SWITCHING JSR FINDTYPE LDA #ESC JSR OUTPUT LDA #'N' JSR OUTPUT LDA #ESC JSR OUTPUT LDA #'>' JSR OUTPUT * ;SET UP STATUS AND DATA ADDRESSES LDA XFRFLGS ;ADJUST XFROPTION BITS FOR EASIER TESTING ROR ;C:=WHITE-ON-BLACK/BLACK-ON-WHITE ROR ;C:=SINGLE/DOUBLE SIZE ROR AND #$C0 ;RESET REMAINING BITS STA XFRFLGS ;B7,B6:=B1,B0 LDY #0 STY TEMP ;DOUBLE SIZE OUTPUT FLIPFLOP ; ; CLEAR PRINTER BUFFER LDA #CR ;CLEAR BUFFER FOR GRAPHICS CHARS JSR OUTPUT ; ; SET VERTICAL SPACING FOR GRAPHICS ; TO 22/144 OF AN INCH LDA #ESC JSR OUTPUT LDA #ASCIIn JSR OUTPUT LDA #ESC ;ESC T 2 2 JSR OUTPUT LDA #ASCIIT JSR OUTPUT LDA #ASCII1 JSR OUTPUT LDA #ASCII6 JSR OUTPUT ; LDA #0 STA TBLINDEX ; INTIALIZE TABLE INDEX TO TOP OF SCREEN ; ; FOR EVERY ROW - NEWLINE LDA #0 ; CLEAR THE FLAG (ONLY SET WHEN WE DO NOT BEGIN STA FLAG ; A NEW PRTR LINE AT START OF A VERTICAL 8-DOT ; GROUP ON THE SCREEN). NEWLIN1 LDA #0 STA HINDEX ;INIT HIRES ROW BYTE COUNTER STA PRFLG ; INITIALIZE PRFLG TO SCAN RATHER THAN PRINT LDA #$40 ; INITIALIZE LEFT SIDE OF IMAGE MARKER STA HINDEXL ; NEWVTBLK LDA #1 STA BITMASK ;INIT TO MASK OUT ALL BUT BYTE'S ; LEFT-MOST PIXEL BIT HINDEX ; TEST MSB TO SEE WHICH HIRES PAGE TO READ. BPL NEWVTBK1 ; MSB CLEAR, WE SHOULD USE AUX PAGE. STA PAGE2N ; MSB SET, WE SWITCH TO MOTHERBOARD PAGE JMP NEWCLMN NEWVTBK1 STA PAGE2Y ; SWITCH TO AUX PAGE. NEWCLMN LDA FLAG BEQ NEWCLM3 STA TEMP JMP NEWBYTE NEWCLM3 STA TEMP ; THE SCREEN BYTE COUNTER AND BIT POSITION NEWBYTE LDY TBLINDEX LDA TABLE,Y STA HBASE LDA TABLE+1,Y LDY TEMP BEQ NEWBYT0 CLC ADC #$10 NEWBYT0 STA HBASE+1 NEWBYT1 LDA #0 STA GCHAR ; CLEAR THE BYTE WE'LL SEND TO PRINTER LDX #4 NEWBIT LDA HINDEX ; GET MEM GRAPHICS BYTE INTO ACC, AND STRIP AND #$7F TAY LDA (HBASE),Y ; OFF ALL BITS EXCEPT THE ONE CORRESPONDING AND BITMASK ; TO DOT WE'RE CHECKING... CMP #1 ;C:=1 IF GR BUFFER BIT IS ON ROR GCHAR ; PUT CARRY INTO THE BYTE WE WILL SEND TO CMP #1 ; PRINTER: 2 TIMES IF REGULAR SIZE, OR ROR GCHAR NEWBIT1 DEX ; ANOTHER SCRN DOT MOVED INTO GCHAR NEXTBIT TXA BEQ NEXTBYTE ; GCHAR FILLED, SEND AND MOVE ON! NXTBIT1 LDA HBASE+1 ; GET HIGH-ORDER HIRES ROW BASE CLC ADC #4 ; ADD 4, SO WE'LL POINT AT NEXT ROW STA HBASE+1 ; PUT NEW ROW BASE BACK JMP NEWBIT ; GO BACK AND GET NEXT PIXEL DOWN NEXTBYTE LDA GCHAR BIT XFRFLGS BVS NXBYT0 EOR #$FF STA GCHAR NXBYT0 BIT PRFLG ; ARE WE PRINTING, OR JUST SCANNING? BPL NXBYT1 ; IF SCANNING, WE WANT TO JMP JSR CHAROUT ; PRINTING, SO WE JSR JMP NXTBYTRT NXBYT1 JMP PICSCAN ; SCANNING, JUMP TO CHAR SCAN ROUTINE NXTBYTRT LDA TEMP ; FOR REG SIZE, AFTER SENDING A PRINTER BYTE EOR #1 ; WE'RE EITHER HALFWAY OR COMPLETELY THRU A STA TEMP ; SCREEN BYTE - THUS ALL WE NEED IS A FLIPFLOP. NXTBYT2D ASL BITMASK ; NOW WE'LL MOVE ONE PIXEL OVER ON SCREEN BIT BITMASK BMI NXTBYT3 ; IF WE'VE DONE 7 BITS ACROSS, GO START ON NEXT ; VERTICAL BLOCK (7 PIXELS H BY 24 BITS V). JMP NEWCLMN ; IF NOT, START ON NEXT COLUMN OF BITS OVER. NXTBYT3 BIT PRFLG BMI NXBYT2 JMP LINENDT NXBYT2 LDA HINDEX CMP HINDEXR BEQ NXTBYT4 NXBYT3 ASL HINDEX ; CHECK TO SEE WHICH PAGE WE'VE WORKED WITH. BCC NXTBYT3A ; WE'VE BEEN WORKING WITH AUX PAGE... LSR HINDEX ; NO, WE'VE BEEN READING MOTHERBOARD PAGE, SO JMP NXTBYT3B ; XOR THE MSB OF HINDEX. NXTBYT3A SEC ; HERE WE XOR THE MSB IF WE'VE WORKED WITH AUX ROR HINDEX ; SETTING MSB, SO WE USE MOTHERBOARD NEXT BLK NXTBYT3B BIT HINDEX ; DID WE JUST FINISH A MOTHERBOARD BLOCK? BPL NXTBYT3C ; YES, SO WE TEST TO SEE IF LINE IS DONE... JMP NEWVTBLK ; NO, LINE CAN'T BE DONE, START NEXT VT. BLK. NXTBYT3C INC HINDEX ; WE'RE DONE WITH A VERT. BLOCK, MOVE ON TO JMP NEWVTBLK ; ACROSS THE SCREEN, START ON NEXT ; VERTICAL BLOCK NXTBYT4 LDA #CR ; FINISHED A PRINTER LINE, SO... JSR CHAROUT ; LET'S SEND A CARRIAGE RETURN LDA #LF JSR CHAROUT ; AND A LINEFEED TO THE SCRIBE LDA TEMP ; STORE THE CRITICAL COUNTERS AND VARIABLES BEQ NXTBYT5 STA FLAG JMP NEWLIN1 NXTBYT5 LDA TBLINDEX CLC ADC #$02 ; MOVING ON 3 ADDRESSES, TO NEXT ; 24 BY 280 BLOCK DOWN ON SCREEN CMP #$30 ; THERE ARE 8 SUCH BLOCKS (8*6=$30) BNE NXTBYT6 ; IF DONE, TIDY UP AND RETURN CONTROL TO DOS... JMP FINI NXTBYT6 STA TBLINDEX ; PUT NEW TABLE INDEX BACK JMP NEWLINE ; NOT DONE, START NEW LINE ; PICSCAN EQU * ; GBYTE SCAN ROUTINE TO FIND IMAGE EDGES FINDLFT BIT HINDEXL ; FOUND LEFT SIDE OF IMAGE YET? BVC FINDRGT ; IF YES, WE ARE TO LOOK FOR RIGHT SIDE... LDA GCHAR ; SEE IF LEFT SIDE BEGINS HERE. BNE FINDLFT1 ; IF NOT, TEST FOR END OF LINE... JMP NXTBYTRT FINDLFT1 LDA HINDEX ; IF IT DOES, WE SET HINDEXL TO VT BLOCK STA HINDEXL ; NUMBER WE ARE SCANNING. JMP FINDRGT1 FINDRGT LDA GCHAR ; SEE IF THIS IS POSSIBLE RIGHT EDGE OF IMAGE. BEQ FINDRGT2 ; IF NOT, TEST FOR END OF LINE... FINDRGT1 LDA HINDEX ; IF YES, STORE VT BLOCK NUMBER IN HINDEXR. STA HINDEXR FINDRGT2 JMP NXTBYTRT LINENDT LDA HINDEX ; CHECK TO SEE IF WE'RE AT END OF SCREEN ROW? CMP #HNDXMAX ; (40 BLOCKS ACROSS SCREEN) BEQ PRTRCMDS ; IF YES, WE MUST TEST FURTHER... JMP NXBYT3 ; NO, THEN CONTINUE SCANNING LINE PRTRCMDS BIT HINDEXL ; DID WE EVER FIND LEFT EDGE OF IMAGE? BVS NXTBYT4 ; NO, JUST SEND CR/LF AND START NEXT LINE... LDA HINDEXL STA HINDEX ASL BCC PRTRCMD1 CLC ADC #1 PRTRCMD1 STA HINDEXL JSR BKTODOTS ; NUMBER OF DOTS TO TAB OVER... LDY #4 ; NOW CONVERT HEX NUMBER OF DOTS IN THE JSR HEXDEC ; ASCII DECIMAL EQUIVALENT OF HEX NUMBERS... LDA #ESC ; SEND PRINTER ESC F N3 N2 N1 N0 JSR OUTPUT ; WHICH TELLS SCRIBE TO MOVE N3N2N1N0 DOTS LDA #ASCIIF ; OVER FROM LEFT MARGIN. JSR OUTPUT JSR OUTBUFF ; SEND N3 N2 N1 N0 TO PRINTER... LDA HINDEXR ; NOW TELL SCRIBE HOW MANY COLUMNS TO PRINT. ASL BCC PRTRCMD2 CLC ADC #1 PRTRCMD2 SEC SBC HINDEXL ; GET DIFFERENCE BETWEEN RIGHT AND LEFT SIDES. CLC ADC #1 ; ADD 1, SINCE WE SHOULD PRINT AT LEAST 1 BLK. JSR BKTODOTS ; CONVERT TO NUMBER OF COLUMNS TO PRINT LDY #4 ; NOW OBTAIN ASCII DECIMAL EQUIVALENT... JSR HEXDEC LDA #ESC ; SEND SCRIBE ESC C N3N2N1N0 FOR N3N2N1N0 JSR OUTPUT ; COLUMNS OF HI-RES OUTPUT TO FOLLOW. LDA #ASCIIG JSR OUTPUT JSR OUTBUFF ; SEND N3N2N1N0 LDA #$FF ; NOW SET PRFLG SO WE'LL ACTUALLY PRINT STA PRFLG ; ON OUR NEXT SCAN THROUGH LINE JMP NEWVTBLK ; AND BEGIN PRINT SCAN... ; BKTODOTS EQU * ; CONVERTS VT BLK NO. TO NUMBER OF DOTS ; VT BLK NO. IS PASSED IN ACCUMULATOR. ; RETURNS X=HIGH, A=LOW OF NUMBER OF DOTS. STA MYBUF+1 ; STORE NUMBER OF VT. BLK. LDX #0 STX MYBUF ; CLEAR HI-ORDER BYTE OF RESULT ASL ; WE MULTIPLE BLK. NUMBER BY 7 (7 PIXELS ASL ; ACROSS FOR EACH BLOCK) BY MULTIPLYING ROL MYBUF ; ASL ; BY 8 AND SUBTRACTING ONCE. ROL MYBUF ; MULTIPLYING HI BYTE TOO... SEC SBC MYBUF+1 ; SUBTRACT VT BLK NO. ONCE (8*A-A=7A) BCS BKTODOT1 ; IF NO UNDERFLOW, DON'T WORRY ABOUT HI BYTE DEC MYBUF ; UNDERFLOW - SO BORROW ONE FROM HI BYTE BKTODOT1 LDX MYBUF ; RETURN HI BYTE IN X REGISTER RTS ; OUTBUFF EQU * ; SENDS 4 ASCII CHARS TO PRINTER STORED IN MYBUF LDA #0 STA CNTR OUTBUF1 LDX CNTR CPX #4 BEQ OUTBUF2 LDA MYBUF,X JSR OUTPUT INC CNTR JMP OUTBUF1 OUTBUF2 RTS HEXDEC EQU * ; CONVERTS 16-BIT HEX NUMBER TO ASCII CODES ; FOR DECIMAL EQUIVALENT. A=LOW BYTE, ; X=HI BYTE OF NUMBER TO CONVERT, AND ; Y=NUMBER OF CHARS TO MAKE (WE WANT 4). ; OUTPUT IS STORED IN MYBUF, LAST CHAR FIRST. STA BINL STX BINH HDLOOP LDX #16+1 ; 16 BITS FIRST TIME DO NOTHING LDA #0 CLC ; C=0 SO FIRST ROL LEAVES A=0 DV10LOOP ROL CMP #10 BCC DV10LT ; BRANCH IF < SBC #10 ; C=1 FROM CMP AND LEFT SET DV10LT ROL BINL ROL BINH DEX BNE DV10LOOP ORA #'0' ;MAKE ASCII STA MYBUF-1,Y DEY BNE HDLOOP RTS CHAROUT BIT PG2STAT BPL CHROUT1 STX PAGE2N JSR OUTPUT STA PAGE2Y RTS CHROUT1 JSR OUTPUT RTS ; ; ; SCREEN DUMP COMPLETED - FINI STA XFRFLGS ;RESTORE USER XFR OPTION LDA #ESC JSR OUTPUT LDA #ASCIIA JSR OUTPUT LDA #CR JSR OUTPUT LDA #LF JSR OUTPUT LDA #ESC JSR OUTPUT LDA #ASCIID JSR OUTPUT LDA #NUL JSR OUTPUT LDA #$20 JSR OUTPUT LDA OFFSET LSR LSR LSR LSR TAY LDA $7F8,Y ;THIS TURNS AUTO LINE FEEDS AND #$EF ;BACK ON THE SUPER SERIAL CARD ORA #$01 STA $7F8,Y JSR DOSCONN RTS * OUTPUT EQU * ;THIS HANDLES OUTPUT FOR SELECTED CARD LDY OFFSET ;THIS IS FOR PASCAL 1 PROTOCOL LDX SIGBYTES+1 ;SAME HERE.... JMP (OUTL) ;BRIDGE FOR JSR OUTPUT * PPOUT EQU * ;MARK THE SPOT HERE STA PPDATA,Y ;STORE IT IN THE DATA PORT NOTRDY LDA PPSTAT,Y ;GET THE PARALLEL STATUS REGISTER AND #$80 ;CHECK TO SEE IF IT'S BUSY BEQ NOTRDY ;WAIT HERE IF IT IS RTS ;AND RETURN * FINDTYPE EQU * ;SUBROUTINE TO FIND INTERFACE TYA ;GET THE SLOT NUMBER FROM Y REGISTER STA SLOT ;STORE IT FOR A MOMENT ASL ;SHIFT IT 4 TIMES ASL ASL ASL ; STA OFFSET ;STORE IT FOR LATER USE STX XFRFLGS ;STORE THE PRINT OPTION IN X REGISTER LDA #$00 ; STA SIGBYTES ;SET UP ZERO PAGE FOR CALCULATION LDA SLOT ;GET THE SLOT AGAIN AND #$07 ;ONLY NEED THE LAST THREE BITS ORA #$C0 ;MAKE THE HIGH BYTE OF CN00 STA SIGBYTES+1 ;STORE IT THE HIGH BYTE OF CN00 LDY #5 ;LOOKING FOR PASCAL 1 PROTOCOL LDA (SIGBYTES),Y ;CHECK BYTE CN05 FOR PASCAL 1 CMP #$38 ;CHECK #1 BNE PARAPNT LDY #7 ;CHECK BYTE CN07 FOR PASCAL 1 LDA (SIGBYTES),Y ; CMP #$18 ;CHECK #2 BNE PARAPNT LDY #$B ;CHECK THE GENERIC SIGBYTE LDA (SIGBYTES),Y ;DOING IT CMP #$01 ;CHECK #3 BEQ PASCAL1 ;LOOKS LIKE PASCAL 1 TO ME.... BNE PARAPNT PASCAL1 EQU * LDY #$0D ;GET THE INITILIZATION OFFSET LDA (SIGBYTES),Y ;DOING THE TASK.... STA OUTL ;PUT IT IN THE LOWER HOOK BYTE.. LDA SIGBYTES+1 ;GET THE HIGH BYTE OF CN00 STA OUTH ;PUT IT IN THE HIGH HOOK BYTE.. JSR OUTPUT ;TURN THE CARD ON... LDY #$F ;GET THE WRITE OFFSET BYTE.. LDA (SIGBYTES),Y ;WORKING AGAIN.... STA OUTL ;PUT IT AT THE LOWER HOOK BYTE LDY #$0C ;CHECK THE DEVICE SIGBYTE LDA (SIGBYTES),Y ;HO HUM CMP #$31 ;IS IT A SSC CARD? BNE RETURN ;NO START THE PROGRAM LDA #$9 ;TURN OFF THE COMMAND BYTE JSR OUTPUT ;HERE WE GO.... LDA #'Z' ;ZAP THE MUTHA.. JSR OUTPUT ;SEND IT TO THE CARD... LDA #CR ;DONT FORGET THIS, MANY HEADACHES!! JSR OUTPUT ;OUTPUT IT RETURN RTS ;RETURN TO CALLER * PARAPNT EQU * LDY #$A ;THIS IS AS GOOD A PLACE AS ANY TO LDA (SIGBYTES),Y ;IDENTIFY THE APPLE PARALLEL INTERFACE CMP #$20 ; BNE APPLE3 ; INY ; LDA (SIGBYTES),Y ;BYTES ARE: CN0A $20, CN0B $58 CN0B $FF CMP #$58 BNE APPLE3 INY LDA (SIGBYTES),Y CMP #$FF BNE APPLE3 LDA #>PPOUT ;LOCATION OF THE PARALLEL INTERFACE OUTPUTT STA OUTL ;ROUTINE LOCATED SOMEWHERE IN THE PROGRAM LDA #<PPOUT ; STA OUTH ; RTS EOR #$10 AND #$70 BNE LOOP2 PLA STA $C0F0 RTS * APPLE3 EQU * LDA APP3ID CMP #$C0 BNE TROUBLE LDY #$B LDA (SIGBYTES),Y CMP #$08 BNE TROUBLE INY LDA (SIGBYTES),Y CMP #$48 BNE TROUBLE LDA #7 JSR OUTPRT LDA #0 JSR COUT JSR SETVID LDA #THREEOUT STA OUTL LDA #<THREEOUT STA OUTH RTS * THREEOUT EQU * PHA LOOP2 LDA $C0F1 EOR #$10 AND #$70 BNE LOOP2 PLA STA $C0F0 RTS * TROUBLE EQU * LDA #$FF STA OFFSET PLA PLA RTS * GrafBas EQU * JSR COMBYTE ;USE APPLESOFT TXTPTR TO GET SLOT NUMBER TXA ;RETURNED IN X REGISTER, MOVE TO ACCUMULATOR PHA ;PUSH ON THE STACK FOR A MOMENT JSR COMBYTE ;GET THE PRINT OPTION ;ALREADY IN THE X REGISTER PLA ;RESTORE THE SLOT NUMBER TAY ;PUT IT IN THE Y REGISTER JMP GrafML ;ALREADY FOR MACHINE LANGUAGE INTERFACE DOSCONN LDA WARMSTART CMP #$4C BNE DOSHOOK LDA WARMSTART+1 BNE DOSHOOK LDA WARMSTART+2 CMP #$BE BNE DOSHOOK PRODOSIO LDY #$03 L016 LDA VDOSIO,Y STA CSWL,Y DEY BPL L016 RTS DOSHOOK JSR DOSIO RTS TABLE DW $2000,$2080 ;THESE ARE HIRES BASE ADDRESSES DW $2100,$2180 ;FOR EACH SET OF EIGHT HIRES ROWS DW $2200,$2280 DW $2300,$2380 DW $2028,$20A8 DW $2128,$21A8 DW $2228,$22A8 DW $2328,$23A8 DW $2050,$20D0 DW $2150,$21D0 DW $2250,$22D0 DW $2350,$23D0